home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / PlotCMD.lha / plotcmd / mod_volume.omed < prev    next >
Text File  |  1999-02-14  |  532b  |  32 lines
  1. /*
  2.     ARexx script for use with PlotCMD
  3.     (PlotCMD is a MUIRexx script for use with OctaMED Soundstudio)
  4.     Read the PlotCMD doc for details
  5. */
  6.  
  7. ADDRESS OCTAMED_REXX
  8. OPTIONS RESULTS
  9.  
  10. PARSE ARG vol
  11.  
  12. IN_SELECT LAST
  13. CALL checkifsample()
  14.  
  15. SA_CHANGEVOL START vol END vol CLIP
  16.  
  17. EXIT
  18.  
  19.  
  20.  
  21.  
  22. /*              P R O C E D U R E S
  23. -----------------------------------------------------*/
  24.  
  25. checkifsample: PROCEDURE
  26.    IN_GETTYPE VAR type
  27.    IF ~(type == SAMPLE | type == SAMPLE16) THEN DO
  28.       WI_REQUEST '"No sample!"' '"Ok"'
  29.       EXIT
  30.    END
  31. return
  32.